Dr. Windows 3/dr win3.zip/dr win3/COMMUNIC/RFDMAILN.ZIP/UNIX.SCR

Text File | 1993-08-06 | 10KB | 364 lines

;------------------------------------------------------
;
;UNIX.SCR --- The script file for UNIX (world.std.com)
;
;------------------------------------------------------
;
;   We begin with the format specifiers to which allow
;the script to identify where the MailId, RealName,
;and Subject texts are in a newly downloaded letter.
;
Format
Subject: $SUBJECT$\n
Subj: $SUBJECT$\n
From: "$NAME$" <$UID$>\n
From: $NAME$<$UID$>\n
From: $UID$ ($NAME$)\n
From: $UID$ \n
From: $UID$\n
Endformat
;------------------------------------------------------
Begin START
   Caption 'connected'
   When 'Login: ' Goto USERNAME
   Timeout 3 Goto START
End
;------------------------------------------------------
Begin USERNAME
   Transmit $USERNAME
   Cr
   When 'Password:' Goto PASSWORD
   When 'Login: ' Goto USERNAME
   Timeout 20 Goto NO_LOGIN
End
;------------------------------------------------------
Begin PASSWORD
   Transmit $PASSWORD
   Cr
   When 'Password:' Goto PASSWORD
   When 'Login: ' Goto USERNAME
   When 'Software Tool & Die' Goto LOGGED_IN
   When 'THE WORLD' Goto LOGGED_IN
   When 'Last login:' Goto LOGGED_IN
   Timeout 45 Goto NO_LOGIN
End
;------------------------------------------------------
Begin LOGGED_IN
   Caption 'logged in'
   When 'TERM = ' Goto SEND_TERMTYPE
   Timeout 90 Goto NO_LOGIN
End
;------------------------------------------------------
Begin SEND_TERMTYPE
   Transmit 'ansi'
   Cr
   When 'world%' Goto JUMP_TO_MAIL
   When 'More? [ynq]' Goto ANNOUNCEMENTS
   Timeout 30 Goto NO_LOGIN
End
;------------------------------------------------------
Begin ANNOUNCEMENTS
   Transmit 'Y'
   Cr
   When 'More? [ynq]' Goto ANNOUNCEMENTS
   When '--More--' Goto SCROLL
   When 'world%' Goto JUMP_TO_MAIL
   Timeout 30 Goto NO_LOGIN
End
;------------------------------------------------------
Begin SCROLL
   Transmit ' '
   When 'More? [ynq]' Goto ANNOUNCEMENTS
   When '--More--' Goto SCROLL
   When 'world%' Goto JUMP_TO_MAIL
   Timeout 30 Goto NO_LOGIN
End
;------------------------------------------------------
Begin FETCH_FROM_MAIN_MENU
   When '& ' Goto DEL_TMPFILE
   Timeout 10 Goto DEL_TMPFILE
End
;------------------------------------------------------
Begin DEL_TMPFILE
   Transmit '!rm -f '
   Transmit $LETTER.FILENAME
   Cr
   When '& ' Goto SAVE_CURLETTER
   Timeout 20 Goto SAVE_CURLETTER
End
;------------------------------------------------------
Begin SAVE_CURLETTER
   Transmit 's '
   Transmit $LETTER.FILENAME
   Cr
   When 'New file' Goto REQUEST_DOWNLOAD
   When 'No messages' Goto NO_MORE_MAIL
   Timeout 10 Goto REQUEST_DOWNLOAD
End
;------------------------------------------------------
Begin REQUEST_DOWNLOAD
   Caption 'Fetching Mail'
   Transmit '!sz -A '
   Transmit $LETTER.FILENAME
   Cr
   When 'sz: 1 file' Goto PAUSE_FOR_DOWNLD
   Timeout 20 Goto ABORT_DOWNLD
End
;------------------------------------------------------
Begin ABORT_DOWNLD
   Control X
   Control X
   Control X
   Control X
   Control X
   Control X
   Control X
   Control C
   When 'world%' Goto JUMP_TO_MAIL
   When '& ' Goto REQUEST_DOWNLOAD
   Timeout 20 Goto JUMP_TO_MAIL
End
;------------------------------------------------------
Begin PAUSE_FOR_DOWNLD
   Timeout 1 Goto DOWNLD_LETTER
End
;------------------------------------------------------
Begin DOWNLD_LETTER
   Download ZMODEM Then DOWNLD_SUCCESS Else GIVE_UP
End
;------------------------------------------------------
Begin DOWNLD_SUCCESS
   Confirm LETTER.RECEIVED Successful
   Caption 'Letter Received'
   Transmit '#'
   Cr
   When '& ' Goto DELETE_LETTER
   Timeout 5 Goto SEND_DOWNLD_CR
End
;------------------------------------------------------
Begin SEND_DOWNLD_CR
   Transmit '#'
   Cr
   When '& ' Goto DELETE_LETTER
   Timeout 5 Goto SEND_DOWNLD_CR
End
;------------------------------------------------------
Begin DELETE_LETTER
   Caption 'Deleting Letter'
   Transmit 'd'
   Cr
   When '& ' Goto DEL_TMPFILE
   Timeout 10 Goto DEL_TMPFILE
End
;------------------------------------------------------
Begin JUMP_TO_MAIL
   Transmit 'mail'
   Cr
   When 'No mail' Goto NO_MAIL_WAITING
   When 'messages' Goto MAIL_WAITING
   When 'message' Goto MAIL_WAITING
   Timeout 10 Goto RETRY_JUMP
End
;------------------------------------------------------
Begin RETRY_JUMP
   Transmit 'mail'
   Cr
   When 'No mail' Goto NO_MAIL_WAITING
   When 'messages' Goto MAIL_WAITING
   When 'message' Goto MAIL_WAITING
   Timeout 15 Goto GIVE_UP
End
;------------------------------------------------------
Begin MAIL_WAITING
   Caption 'You Have Mail'
   If FETCHING Then FETCH_FROM_MAIN_MENU
   If MORE_LETTERS Then SEND_BUT_QUIT
   When '& ' Goto QUIT_MAIL
   Timeout 15 Goto LOG_OFF
End
;------------------------------------------------------
Begin QUIT_MAIL
   Transmit 'q'
   Cr
   When '& ' Goto QUIT_MAIL
   When 'world%' Goto LOG_OFF
   Timeout 15 Goto GIVE_UP
End
;------------------------------------------------------
Begin SEND_BUT_QUIT
   Transmit 'q'
   Cr
   When '& ' Goto SEND_BUT_QUIT
   When 'world%' Goto REQUEST_UPLOAD_LETTER
   Timeout 15 Goto GIVE_UP
End
;------------------------------------------------------
Begin NO_MORE_MAIL
   Caption 'Fetched Mail'
   Transmit 'q'
   Cr
   If MORE_LETTERS Then SEND_MAIL
   When '& ' Goto NO_MORE_MAIL
   When 'world%' Goto LOG_OFF
   Timeout 10 Goto LOG_OFF
End
;------------------------------------------------------
Begin NO_MAIL_WAITING
   Caption 'No Mail'
   If MORE_LETTERS Then SEND_MAIL
   When 'world%' Goto LOG_OFF
   Timeout 15 Goto GIVE_UP
End
;------------------------------------------------------
Begin SEND_MAIL
   When 'world%' Goto REQUEST_UPLOAD_LETTER
   Timeout 15 Goto GIVE_UP
End
;------------------------------------------------------
;Here we send the destination Mail ID, which is specified
;bye the variable $LETTER.DEST.USERNAME
;
Begin REQUEST_UPLOAD_LETTER
   Transmit 'rz -a'
   Cr
   When 'to your modem' Goto WAIT_FOR_UPLOAD
   When 'ready' Goto WAIT_FOR_UPLOAD
   Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin WAIT_FOR_UPLOAD
   Timeout 1 Goto BEGIN_LETTER_UPLOAD
End
;------------------------------------------------------
;This is where we upload the letter.  Note that
;there are two states we can transfer to:
;UPLOAD_SUCCESS if it work, UPLOAD_FAILURE if it didn't
;
Begin BEGIN_LETTER_UPLOAD
   NewLetter
   Upload ZMODEM Then UPLOAD_SUCCESS Else GIVE_UP
End
;------------------------------------------------------
Begin UPLOAD_SUCCESS
   Caption 'Letter Uploaded'
   Cr
   When 'world%' Goto SEND_LETTER
   Timeout 8 Goto END_LETTER_UPLOAD
End
;------------------------------------------------------
Begin END_LETTER_UPLOAD
   Cr
   When 'world%' Goto SEND_LETTER
   Timeout 5 Goto END_LETTER_UPLOAD2
End
;------------------------------------------------------
Begin END_LETTER_UPLOAD2
   Control C
   When 'world%' Goto SEND_LETTER
   Timeout 5 Goto GIVE_UP
End
;------------------------------------------------------
Begin SEND_LETTER
   Transmit 'mail '
   Transmit $LETTER.DEST.USERNAME
   Cr
   When 'Subject: ' Goto SEND_SUBJECT
   When 'not found' Goto RETRY_SEND_LETTER
   Timeout 15 Goto GIVE_UP
End
;------------------------------------------------------
Begin RETRY_SEND_LETTER
   Transmit 'mail '
   Transmit $LETTER.DEST.USERNAME
   Cr
   When 'Subject: ' Goto SEND_SUBJECT
   When 'not found' Goto GIVE_UP
   Timeout 15 Goto GIVE_UP
End
;------------------------------------------------------
;Here we send the letter subject which is specified
;by the variable $LETTER.SUBJECT
;
Begin SEND_SUBJECT
   Transmit $LETTER.SUBJECT
   Cr
   Timeout 2 Goto SEND_BODY
End
;------------------------------------------------------
Begin SEND_BODY
   Transmit '~r '
   Transmit $LETTER.FILENAME
   Cr
;   When 'mail.tmp' Goto FINISH_SEND
   Timeout 1 Goto FINISH_SEND
End
;------------------------------------------------------
Begin SEND_CC
   Transm